home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / css / source / minptst.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-19  |  1.2 KB  |  69 lines
  1.  
  2. #include <stdio.h>
  3. #include <string.h>
  4. #include <glib.h>
  5. #include <strlib.h>
  6. #include "land.h"
  7.  
  8. /* #include "..\lib.h" */
  9.  
  10.  
  11. main()
  12. {
  13. int x, y, bcl[16], x1, y1, wi;
  14. double inpn;
  15.  
  16.    
  17.    gopen();
  18.    GDS_setcompat(1);
  19.    MOS_start();
  20.    
  21.    tpalet2();
  22.  
  23.    color(7, 0);
  24.    Cls;
  25.  
  26. /*
  27.    system("tifl land");
  28. */
  29. /*
  30.    printf("%d\n", tiffl(0,0, "land2.tif"));
  31. */
  32.    getch();
  33.    tpalet();
  34. /*   color(7,7); */
  35.    Cls;
  36.    bcl[0] = 7;
  37.    paint(1,1, 1, 7,  1, bcl);
  38.    menubox(50, 50, 500, 300, "探査衛星画像解析メニュー");
  39.    /*
  40.       drmode(PSET);
  41.       bcl[0] = 7;
  42.       paint(1, 1, 1, 7, 1, bcl);
  43.    */
  44.    x1 = 600; y1 = 50;
  45.    calcu(x1, y1, 1);
  46.    line(x1, y1, x1+19, y1+19, XOR, 7, 2, 0xffff);
  47.    MOS_disp(0);
  48.    line(250,150,350,250,PSET,10,2,0xffff);
  49.    line(250,150+10,350,250+10,PSET,12,2,0xffff);
  50.    line(250,150+30,350,250+30,AND,14,2,0xffff);
  51.    msgset(100, 100, "○　ＢＳＱ", 8);
  52.    msgset(100, 120, "●　ＢＩＬ", 8);
  53.    x = 300; y = 250;
  54.    inpn = 1000;
  55.    wi = calc(&x, &y, &inpn);
  56.    msgset(100, 120, "●　ＢＩＬ", 7);
  57.    msgset(100, 120, "○", 8);
  58.    calcu(x1, y1, 0);
  59.  
  60.    Locate(0,10);
  61.    printf(" inpn = %f\n", inpn);
  62.    getch();
  63.    color(7,0);
  64.    rpalet();
  65.    MOS_end();
  66.    gclose();
  67. }
  68.  
  69.